home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / zung2r.z / zung2r
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. ZZZZUUUUNNNNGGGG2222RRRR((((3333FFFF))))                                                          ZZZZUUUUNNNNGGGG2222RRRR((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      ZUNG2R - generate an m by n complex matrix Q with orthonormal columns,
  10.  
  11. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  12.      SUBROUTINE ZUNG2R( M, N, K, A, LDA, TAU, WORK, INFO )
  13.  
  14.          INTEGER        INFO, K, LDA, M, N
  15.  
  16.          COMPLEX*16     A( LDA, * ), TAU( * ), WORK( * )
  17.  
  18. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  19.      ZUNG2R generates an m by n complex matrix Q with orthonormal columns,
  20.      which is defined as the first n columns of a product of k elementary
  21.      reflectors of order m
  22.  
  23.            Q  =  H(1) H(2) . . . H(k)
  24.  
  25.      as returned by ZGEQRF.
  26.  
  27.  
  28. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  29.      M       (input) INTEGER
  30.              The number of rows of the matrix Q. M >= 0.
  31.  
  32.      N       (input) INTEGER
  33.              The number of columns of the matrix Q. M >= N >= 0.
  34.  
  35.      K       (input) INTEGER
  36.              The number of elementary reflectors whose product defines the
  37.              matrix Q. N >= K >= 0.
  38.  
  39.      A       (input/output) COMPLEX*16 array, dimension (LDA,N)
  40.              On entry, the i-th column must contain the vector which defines
  41.              the elementary reflector H(i), for i = 1,2,...,k, as returned by
  42.              ZGEQRF in the first k columns of its array argument A.  On exit,
  43.              the m by n matrix Q.
  44.  
  45.      LDA     (input) INTEGER
  46.              The first dimension of the array A. LDA >= max(1,M).
  47.  
  48.      TAU     (input) COMPLEX*16 array, dimension (K)
  49.              TAU(i) must contain the scalar factor of the elementary reflector
  50.              H(i), as returned by ZGEQRF.
  51.  
  52.      WORK    (workspace) COMPLEX*16 array, dimension (N)
  53.  
  54.      INFO    (output) INTEGER
  55.              = 0: successful exit
  56.              < 0: if INFO = -i, the i-th argument has an illegal value
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.